Fix prefix sorting

diff --git a/which-key-tests.el b/which-key-tests.el
index 0461737799970ef6d946bdc607384f1b801c9332..705099b0603e7213030be5476029d72dd13d2d18 100644 (file)
--- a/which-key-tests.el
+++ b/which-key-tests.el
@@ -189,7 +189,7 @@
                 ("A" . "Z")
                 ("b" . "y")
                 ("B" . "Y")
-                ("p" . "Prefix")
+                ("p" . "prefix")
                 ("SPC" . "x")
                 ("C-a" . "w"))))
     (let ((which-key-sort-uppercase-first t))

diff --git a/which-key.el b/which-key.el
index ec3f760159bbd19cb86cc1e6ddb7f653dc19d931..55e65b884f31cf1c370b725e3f15fb81a4e062eb 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1401,7 +1401,8 @@ Uses `string-lessp' after applying lowercase."
   (string-lessp (downcase (cdr acons)) (downcase (cdr bcons))))
 
 (defsubst which-key--group-p (description)
-  (keymapp (intern description)))
+  (or (equal description "prefix")
+      (keymapp (intern description))))
 
 (defun which-key-prefix-then-key-order (acons bcons)
   "Order first by whether A and/or B is a prefix with no prefix